home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
gfx
/
edit
/
AmiCAD_2.07.lha
/
AmiCAD
/
ARexx
/
NewWindow.AmiCAD
< prev
next >
Wrap
Text File
|
2000-11-10
|
1KB
|
64 lines
/* Script NewWindow
Version 1.00, 10 avril 2000 © R.Florac
Version 1.01, 10 novembre 2000 (localisation anglais/français)
$VER: NewWindow.AmiCAD 1.01 (© R.Florac, 10/11/2000)
Exemple d'utilisation :
call 'NewWindow.AmiCAD' nom_fichier
code = result
*/
signal on error
signal on syntax
options results
parse arg nom_fichier
p=address()
'LANGUAGE'
if result="français.language" then fr=1
else fr=0
'VERSION(0)'
if result < 2.05 then do
if fr=1 then 'MESSAGE("Ce script nécessite"+CHR(10)+"AmiCAD 2.05 ou mieux")'
else 'MESSAGE("This script needs"+CHR(10)+"AmiCAD 2.05 or better")'
return -1
end
'NEWSHEET'
code=result
if code < 0 then do
if fr= 1 then 'MESSAGE("Création nouveau document impossible")'
else 'MESSAGE("Creating new document error")'
return -1
end
port = 'AmiCAD.'code
address command
waitforport port
if rc=5 then do
address VALUE p
if fr=1 then 'MESSAGE("Port 'port' non trouvé")'
else 'MESSAGE("Port 'port' not found")'
return -1
end
address VALUE port
'FILENAME("'nom_fichier'")'
return code
syntax:
erreur=RC
address VALUE p
if fr=1 then 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
else 'MESSAGE("Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
return -1
error:
address VALUE p
if fr=1 then 'MESSAGE("Erreur en ligne 'SIGL'")'
else 'MESSAGE("Error in line 'SIGL'")'
return -1